home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Mapping / m-to-symbol < prev    next >
Lisp/Scheme  |  1998-08-11  |  544b  |  21 lines
  1. m-to-symbol symbol length
  2.  
  3. (setq len1 '(-1/20 1/10 1/20 1/20 3/20 -1/20 -1/20))
  4. (setq len2 '((1/8 -1/8 1/8 1/8) (-1/4) (3/32 1/32 -1/8) (-1/4)))
  5.  
  6. (setq sym1 '(a b c))
  7. (setq sym2 '(a b = c d = = e f g))
  8. (setq sym3 '((a = b) (c d =) (e = = f)))
  9.  
  10. (m-to-symbol sym1 len1)
  11. => (1/20 1/10 1/20)
  12.  
  13. (m-to-symbol sym2 len1)
  14. => (1/20 1/10 -1/20 1/20 3/20 -1/20 -1/20 1/20 1/10 1/20)
  15.  
  16. (m-to-symbol sym3 len1)
  17. => ((1/20 -1/10 1/20) (1/20 3/20 -1/20) (1/20 -1/20 -1/10 1/20))
  18.  
  19. (m-to-symbol sym3 len2)
  20. => ((1/8 -1/8 1/8) (1/4 1/4 -1/4) (3/32 -1/32 -1/8 3/32))
  21.